From: Richard M. Stallman Date: Wed, 21 Apr 2004 19:12:04 +0000 (+0000) Subject: (byte-compile-no-warnings): Handle multiple args: compile like progn. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23034 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4427945d48387a96bb045d1348b8d8efa4834ca4;p=emacs.git (byte-compile-no-warnings): Handle multiple args: compile like progn. --- diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 43e0732104f..224fd366a41 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -3716,7 +3716,8 @@ being undefined will be suppressed." (byte-defop-compiler-1 with-no-warnings byte-compile-no-warnings) (defun byte-compile-no-warnings (form) (let (byte-compile-warnings) - (byte-compile-form (cadr form)))) + (setcar form 'progn) + (byte-compile-form form))) ;;; tags